home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Programming / BlitzBasic / TRITONBLITZ / Demos / Memo2.bb2 < prev    next >
Encoding:
Text File  |  1998-06-24  |  2.0 KB  |  100 lines
  1. ;
  2. ; Memo
  3. ; use this source as you like
  4. ; written by Philipp Lonke
  5. ; simplified by Daniel Pink
  6. ;
  7.  
  8. ; Executeable now 4736 bytes long when compiled without
  9. ; debug.  Most size savings by not using Null(), and not
  10. ; using NPrint.
  11. NoCli
  12.  
  13. INCLUDE "blitz2:bbincludes/libraries/triton.bb2"
  14.  
  15. ; NOTE no need to store parameters in array as Blitz
  16. ;      keeps them anyway, though its worth exiting
  17. ;      immediately if the wrong number of parameters
  18. ;      have been passed.
  19. If NumPars<>2 Then End
  20.  
  21.  
  22. InitTagList 0,10
  23. Use TagList 0
  24.  
  25.  
  26. ; Uses ? and Dc.b for strings if set to 1
  27. #WithDCs=1
  28.  
  29. CNIF #WithDCs=1
  30.  
  31.   ; Note use of ?, strings defined at bottom
  32.   AddTags #TRCA_Name,?name
  33.   AddTags #TRCA_LongName,?longname
  34.   AddTags #TRCA_Version,?version
  35.   AddTags #TAG_END,0
  36.  
  37. CELSE
  38.  
  39.   ; NOTE you could also do something like
  40.   name$="memo"
  41.   longname$="memo - the informer"
  42.   version$="1.0"
  43.   AddTags #TRCA_Name,&name$
  44.   AddTags #TRCA_LongName,&longname$
  45.   AddTags #TRCA_Version,&version$
  46.   AddTags #TAG_END,0
  47.   ;
  48.   ; BUT name$,longname$,version$ must NOT be changed until they
  49.   ; have been used by Triton, which in this case is after TR_CreateApp_
  50.   ; is called.
  51.  
  52. CEND
  53.  
  54.  
  55.  
  56. ; NOTE type now .l  It probably doesn't make any difference, but
  57. ;      there's no need to bother with a pointer to a NEWTYPE if
  58. ;      none of the NEWTYPE fields need to be accessed.
  59. application.l=TR_CreateApp_(TagList)
  60.  
  61. If application
  62.  
  63.   ; NOTE par$() used directly
  64.   body$="%b"+Par$(1) ; Bold text
  65.   body$+Chr$(9)      ; Add a tab char for a 3d separator line
  66.   body$+"%3"+Par$(2) ; 3d text
  67.  
  68.   ; NOTE use of &body$, and that TR_EasyRequest has been used as
  69.   ;      a statement as the result is not going to be used anyway.
  70.   TR_EasyRequest_ application,&body$,?gads,?reqtags
  71.  
  72.   ; NOTE used as statement again
  73.   TR_GetMsg_ application
  74.  
  75.   TR_DeleteApp_ application
  76.  
  77. ; NOTE removed NPrint becasue I didn't thing it was worth doubling
  78. ;      the executeable size for!!
  79. EndIf
  80.  
  81. End
  82.  
  83. CNIF #WithDCs=1
  84.  
  85.   name:
  86.   Dc.b "Memo",0
  87.   longname:
  88.   Dc.b "Memo - the informer",0
  89.   version:
  90.   Dc.b "1.0",0
  91.  
  92. CEND
  93.  
  94. reqtags:
  95. Dc.l 0,0
  96. gads:
  97. Dc.b "_OK",0
  98. Even
  99.  
  100.